home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
misc
/
nnn.lha
/
nnn1.35
/
src
/
NetExit.c
< prev
next >
Wrap
C/C++ Source or Header
|
1995-03-20
|
619b
|
29 lines
/*
* $Id: NetExit.c 1.1 1995/03/20 23:40:05 daltern Exp $
*/
#include "Neural.h"
void NetExit( NET *netI, VECTOR *vecS, float **Node, float ***Weight,
float ***Delta_weight )
{
register int i, j;
FREE2D(vecS->InVec,MAX_VECS);
FREE2D(vecS->OutVec,MAX_VECS);
FREE3D(Weight,(netI->NumLayers-1),(netI->LayerSize[i]));
FREE3D(Delta_weight,(netI->NumLayers-1),(netI->LayerSize[i]+1));
for ( i = 1; i < netI->NumLayers; i++ ) {
free(Node[i]);
} /* end for i */
free(Node);
free(netI->LayerSize);
exit(0);
} /* end function NetExit */